home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / commou5o.zip / COMMO.MAC < prev    next >
Text File  |  1992-04-12  |  45KB  |  733 lines

  1.  ╔════════════════════════════════════════════════════════════════════════════╗ upproto
  2.  ║                         ┌────────────────────────┐                         ║
  3.  ║                         │  Upload Protocol Menu  │                         ║
  4.  ║                         └────────────────────────┘                         ║
  5.  ║                               ZMODEM BATCH-R (32-Bit CRC)                  ║ {goto zm1s}
  6.  ║                               ZMODEM BATCH-W (1024KB Sliding Window)       ║ {goto zm2s}
  7.  ║                               ZMODEM BATCH-W (4096KB Sliding Window)       ║ {goto zm3s}
  8.  ║                               ZMODEM BATCH-Z (12-Bit RLE Compression)      ║ {goto zm4s}
  9.  ║                               YMODEM BATCH   (16-Bit CRC)                  ║ {goto ym1s}
  10.  ║                               MPT BATCH                                    ║ {goto mp1s}
  11.  ║                               PUMA BATCH                                   ║ {goto pm1s}
  12.  ║                               BIMODEM BATCH                                ║ {goto bims}
  13.  ║                               HS/LINK BATCH                                ║ {goto hsls}
  14.  ║                               XMODEM 1K-INT  (Old Ymodem)                  ║ {goto xk1s}
  15.  ║                               XMODEM CRC-INT                               ║ {goto xc1s}
  16.  ║                               XMODEM CSUM-INT                              ║ {goto xs1s}
  17.  ║                               HYPERP                                       ║ {goto hp1s}
  18.  ║                               JMODEM                                       ║ {goto jm1s}
  19.  ║                               KERMIT                                       ║ {goto km1s}
  20.  ║                               SEALINK                                      ║ {goto sl1s}
  21.  ║                               ZMAX                                         ║ {goto zx1s}
  22.  ╚════════════════════════════════════════════════════════════════════════════╝ {:pgu} {macro upproto}
  23.  ╔════════════════════════════════════════════════════════════════════════════╗ dnproto
  24.  ║                         ┌────────────────────────┐                         ║
  25.  ║                         │ Download Protocol Menu │                         ║
  26.  ║                         └────────────────────────┘                         ║
  27.  ║                          AUTO ZMODEM BATCH-R (32-Bit CRC)                  ║ {goto zm1r}
  28.  ║                          AUTO ZMODEM BATCH-W (1024KB Sliding Window)       ║ {goto zm2r}
  29.  ║                          AUTO ZMODEM BATCH-W (4096KB Sliding Window)       ║ {goto zm3r}
  30.  ║                          AUTO ZMODEM BATCH-Z (12-Bit RLE Compression)      ║ {goto zm4r}
  31.  ║                               YMODEM BATCH   (16-Bit CRC)                  ║ {goto ym1r}
  32.  ║                          AUTO MPT BATCH                                    ║ {goto mp1r}
  33.  ║                          AUTO PUMA BATCH                                   ║ {goto pm1r}
  34.  ║                               BIMODEM BATCH                                ║ {goto bimr}
  35.  ║                          AUTO HS/LINK BATCH                                ║ {goto hslr}
  36.  ║                               XMODEM 1K-INT  (Old Ymodem)                  ║ {goto xk1r}
  37.  ║                               XMODEM CRC-INT                               ║ {goto xc1r}
  38.  ║                               XMODEM CSUM-INT                              ║ {goto xs1r}
  39.  ║                               HYPERP                                       ║ {goto hp1r}
  40.  ║                               JMODEM                                       ║ {goto jm1r}
  41.  ║                               KERMIT         (Download Goes to COMMO Dir)  ║ {goto km1r}
  42.  ║                               SEALINK        (Download Goes to COMMO Dir)  ║ {goto sl1r}
  43.  ║                               ZMAX           (Download Goes to COMMO Dir)  ║ {goto zx1r}
  44.  ╚════════════════════════════════════════════════════════════════════════════╝ {:pgd} {macro dnproto}
  45.  ╔════════════════════════════════════════════════════════════════════════════╗ utilmenu
  46.  ║                                                                            ║
  47.  ║                            ┌────────────────────┐                          ║
  48.  ║                            │ Macro Utility Menu │                          ║
  49.  ║                            └────────────────────┘                          ║
  50.  ║                                                                            ║
  51.  ║                                                                            ║
  52.  ║                                                                            ║
  53.  ║                            Edit an External File                           ║ {goto uext} {:alu} {macro utilmenu}
  54.  ║                                                                            ║
  55.  ║                            Run a Macro                                     ║ {goto urun}
  56.  ║                                                                            ║
  57.  ║                            Run MOSTHOST (Host Mode, install first)         ║ {goto uhost}
  58.  ║                                                                            ║
  59.  ║                            View/Edit/Install MOSTHOST                      ║ {goto vhost}
  60.  ║                                                                            ║
  61.  ║                                                                            ║
  62.  ║                                                                            ║
  63.  ║                                                                            ║
  64.  ║                                                                            ║
  65.  ║                                                                            ║
  66.  ╚════════════════════════════════════════════════════════════════════════════╝
  67.   Macros for Utility Menu
  68.   ────────────────────────────────────────────────────────────────────────────
  69.   {:urun}  {input runmac,Macro to run} {goto %runmac} {}
  70.   {:uext}  {input temp,Filename to edit}
  71.   {:uedit} {edit %temp} {macro} {}
  72.   {:uhost} {macl mosthost.mac,bbs}
  73.   {:vhost} {setv temp,%_hom%mosthost.mac} {goto uedit}
  74.  * * * BEGINNING OF PNS MACROS  (Need PNS52)
  75.  ╔════════════════════════════════════════════════════════════════════════════╗ pnsupproto
  76.  ║                         Della & Muegge Enterprises'                        ║
  77.  ║                          ┤ COMMOPNS Upload Menu ├                          ║
  78.  ║                                                                            ║
  79.  ║    Hot Key        Selection                     External Program           ║
  80.  ╟────────────────────────────────────────────────────────────────────────────╢
  81.  ║    Ctrl-F1   AUTO ZMODEM BATCH-R                GSZ1214                    ║ {goto pnsz}
  82.  ║    Ctrl-F2        YMODEM BATCH                  GSZ1214                    ║ {goto pnsyb}
  83.  ║    Ctrl-F3        MPT BATCH                     MPT110                     ║ {goto pnsp}
  84.  ║    Ctrl-F4        XMODEM 1K-INT (Old Ymodem)    N/A                        ║ {goto pnsxk}
  85.  ║    Ctrl-F5        XMODEM CRC-INT                N/A                        ║ {goto pnsx}
  86.  ║    Ctrl-F6        HS/LINK BATCH                 HSLINK11B7                 ║ {goto pnsh}
  87.  ╟────────────────────────────────────────────────────────────────────────────╢ {:cpu} {macro pnsupproto}
  88.  ║                   Edit PNS Macros                                          ║ {goto pnsedit}
  89.  ║                   Register PNS                                             ║ {goto pnsregister}
  90.  ║                                                                            ║ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  91.  ╚════════════════════════════════════════════════════════════════════════════╝
  92. COMMOPNS is Shareware.  Print out REGISTER.FRM for information on how to pay.
  93.   ____
  94.  /  o \/| The Babble Underground      Call for the latest versions of
  95. |___,   | (707) 575-0636              {COMMO}, COMMOPNS, and other {COMMO}
  96.  \____/\| USRobotics Dual Standard    Utilities.
  97.                                                                                 {:PNSEdit} {MACRO PNS Edit}
  98.                                [E] to Edit
  99. * Auto Zmodem Upload, add "aut=pnszup,^xB01" to COMMO.SET
  100. * Label menu GOTOs
  101.  ZMODEM BATCH-R {:pnszup} {:pnsz} {:cf1} {call PNS} {exec-a %dszprog port %_por sz -M @%pnsf} {goto pnsdone}
  102.  YMODEM BATCH   {:pnsyb} {:cf2} {call PNS} {exec-a %dszprog port %_por sb -k @%pnsf} {goto pnsdone}
  103.  MPT BATCH      {:pnsp}  {:cf3} {call PNS} {exec-a MPT P%_por s @%pnsf} {goto pnsdone}
  104.  XMODEM 1K-INT  {:pnsxk} {:cf4} {call PNS} {call PNSGetName} {sxmo-ka %PNSUpf} {goto pnsdone}
  105.  XMODEM CRC-INT {:pnsx}  {:cf5} {call PNS} {call PNSGetName} {sxmo-A %PNSUpf} {goto pnsdone}
  106.  HS/LINK BATCH  {:pnsh}  {:cf6} {call PNS1} {exec-a HSLINK -NV -p%_por @%pnsf -u%dldir} {goto pnsdone}
  107.  The program COMMOPNS.EXE, GSZ.EXE and MPT.EXE must be in your DOS path.  The '@' and drive specifier MUST be included, or GSZ won't work.
  108.  {:PNS1} {SETV pns_hslink,true}
  109.  {:PNS} {SETV pnsf,C:\FILE.LST} ^^^^^^^^^^^ Configurable, file to put tagged file list. {EXEC COMMOPNS %pnsf -ON -D%uldir -S%_speed} * The -ON Sort files by filename. * The -D option to specify in which directory to start.
  110.         * The -S option to specify the bps rate. {COMP pns_hslink,true} {IFCO PNSReturn} {IFEX %pnsf,,PNSD}
  111.  {:PNSReturn} {SETV pns_hslink} {RETURN}
  112.  {:PNSGetName} * For internal Xmodem protocols {ROPEN %pnsf,PNSG} {READ %PNSUpf} {RCLOSE}
  113.  {:PNSG} {RETURN}
  114.  {:PNSDone} {EXEC ERASE %pnsf}
  115.  {:PNSD} {SETV pnsf} {SETV PNSUpf} {}
  116.  {:PNSRegister} {SPOC N} {CLEAR} {DISP 2,1,6a,COMMOPNS Registration} {DISP 4,1,07,Use underlines instead of spaces in your name.(e.g. Jane_Doe)} {DISP 5,1,07,Registration Name: } {GETS PNSname,30,PNSR20} {DISP 6,1,07,Serial Number: }
  117.                {GETS PNSserial,4,PNSR20} {DISP 7,1,07,Activation Code: } {GETS PNScode,5,PNSR20} {EXEC-W COMMOPNS -R%PNSserial %PNScode %PNSname} {SETV PNSSerial} {SETV PNScode} {SETV PNSname}
  118.  {:PNSR20} {CLEAR} {MACRO}
  119.  Download Macros
  120.  ZMODEM BATCH-R {:zmodem} {:zm1r} {exec-a %dszprog port %_por speed %_spe rz -Mrr %dldir} {} (GSZ1214)
  121.  ZMODEM BATCH-m {:0000} {exec-a %dszprog port %_por speed %_spe ha on rz -mrr %dldir} {} (GSZ1214)
  122.  ZMODEM BATCH-W {:zm2r} {exec-aw %dszprog port %_por speed %_spe rz -Mrr %dldir} {} (GSZ1214)
  123.  ZMODEM BATCH-W {:zm3r} {exec-a %dszprog port %_por speed %_spe rz -Mrr %dldir} {} (GSZ1214)
  124.  ZMODEM BATCH-Z {:zm4r} {exec-a %dszprog port %_por speed %_spe rz -Mrr %dldir} {} (GSZ1214)
  125.  YMODEM BATCH   {:ym1r} {exec-a %dszprog port %_por speed %_spe rb %dldir} {} (GSZ1214)
  126.  YMODEM BATCH-G {:0000} {exec-a %dszprog port %_por speed %_spe rb -g %dldir} {} (GSZ1214)
  127.  MPT BATCH      {:mpt} {:mp1r} {exec-a MPT P%_por S%_spe r %dldir\} {} (MPT110)
  128.  PUMA BATCH     {:puma} {:pm1r} {exec-a PUMA P%_por S%_spe r %dldir\} {} (PUMA100)
  129.  BIMODEM BATCH  {:bimr} {exec-a BIMOD} {} (BIMOD124)
  130.  HS/LINK BATCH  {:hslink} {:hslr} {exec-a HSLINK -NV -p%_por -u %dldir} {} (HSLK11B7)
  131.  XMODEM 1K-INT  {:xk1r} {call gfnd} {rxmo-ka %file} {}
  132.  XMODEM 1K      {:0000} {call gfnd} {exec-a %dszprog port %_por speed %_spe rc -k %file} {} (GSZ1214)
  133.  XMODEM 1K CSUM {:0000} {call gfnd} {exec-a %dszprog port %_por speed %_spe rx -k %file} {} (GSZ1214)
  134.  XMODEM 1K-G    {:0000} {call gfnd} {exec-a %dszprog port %_por speed %_spe rc -gk %file} {} (GSZ1214)
  135.  XMODEM CRC-INT {:xc1r} {call gfnd} {rxmo-ca %file} {}
  136.  XMODEM CRC     {:0000} {call gfnd} {exec-a %dszprog port %_por speed %_spe rc %file} {} (GSZ1214)
  137.  XMODEM CSUM-INT{:xs1r} {call gfnd} {rxmo-c0a %file} {}
  138.  XMODEM CSUM    {:0000} {call gfnd} {exec-a %dszprog port %_por speed %_spe rx %file} {} (GSZ1214)
  139.  XMODEM CRC-G   {:0000} {call gfnd} {exec-a %dszprog port %_por speed %_spe rc -g %file} {} (GSZ1214)
  140.  HYPERP         {:hp1r} {call gfnd} {exec-a HYPERP Port:%_por Baud:%_spe Display:OFF Checktype:CRC Overwrite:On receive %file} {} (HYPERP)
  141.  JMODEM         {:jm1r} {call gfnd} {exec-a JMODEM R%_por %file} {} (JMOD305B)
  142.  KERMIT         {:km1r} {exec-a PCKERMIT -L COM%_por -B %_spe -R} {} (PCKERM21)
  143.  SEALINK        {:sl1r} {exec-a CLINK12 R /P%_por /B%_spe} {} (CLINK34)
  144.  MEGALINK       {:0000} {exec-a MLINK16 PORT %_por SPEED %_spe RM %dldir} {} (MLINK16)
  145.  ZMAX           {:zx1r} {exec-a ZMAX -B %_spe -P %_por -R} {} (ZMAX100B)
  146.  TMODEM         {:0000} {exec-a TMODEM -K -U%dldir -B%_spe -P%_por -R} {} (TMOD710)
  147.  ZMODEM BATCH   {:0000} {call gfnd} {exec-a PCZ %_por %_spe rz %file} {} (PCZ30390)
  148.  YMODEM BATCH   {:0000} {call gfnd} {exec-a PCZ %_por %_spe ry %file} {} (PCZ30390)
  149.  XMODEM 1K      {:0000} {call gfnd} {exec-a PCZ %_por %_spe r1 %file} {} (PCZ30390)
  150.  XMODEM         {:0000} {call gfnd} {exec-a PCZ %_por %_spe rx %file} {} (PCZ30390)
  151.  SEALINK        {:0000} {exec-a PCZ %_por %_spe rs %dldir} {} (PCZ30390)
  152.  LYNX           {:0000} {call gfnd} {exec-a LYNX R /%_spe /%_por %dldir\} {} (LYNX302)
  153.  SUPER8K BATCH  {:0000} {exec-a SUPERK P%_por S%_spe RSB F %dldir} {} (SK&J1202)
  154.  K9XMODEM BATCH {:0000} {exec-a SUPERK P%_por S%_spe RKB F %dldir} {} (SK&J1202)
  155.  WXMODEM        {:0000} {call gfnd} {exec-a SUPERK P%_por S%_spe RW F %dldir\} {} (SK&J1202)
  156.  CMODEM         {:0000} {call gfnd} {exec-a SUPERK P%_por S%_spe RH F %dldir\} {} (SK&J1202)
  157.  WXMODEM        {:0000} {call gfnd} {exec-a WXFER port %_por speed %_spe -r %dldir\} {} (WXFER0417)
  158.  TRANSLINK      {:0000} {exec-a TRLINK -B%_spe -P%_por R} {} (TRLNK180)
  159.  PUNTER         {:0000} {call gfnd} {exec-a PUNTER /R /M /P%_por /B%_spe %dldir\} {} (PNTR211)
  160.  CMODEM         {:0000} {exec RCMODEM /p=%_por/rx/b=%_spe/shh/s=c %dldir} {} (CMODEM26)
  161.  IMODEM         {:0000} {call gfnd} {exec-a QMXFER -L COM%_por -B %_spe -P I -R -F %dldir\} {} (QMXFER)
  162.  CIS BPlus      {:0000} {exec OZBEXT /c%_por /f%dldir /n} {} (OZBEXT)
  163.  {:gfnd} {setv file,%dldir\} {input file,Enter a filename to DOWNLOAD} {ifex %file,,gf_y} {input %yn,File exists, overwrite? [Y/n]} {comp yn} {ifco gf_y} {comp yn,y} {ifco gf_y} {}
  164.          {:gf_y} {return}
  165.  Upload Macros
  166.  ZMODEM BATCH-R {:zm1s} {call gfnu} {exec-a %dszprog port %_por speed %_spe sz -M %file} {} (GSZ1214)
  167.  ZMODEM BATCH-m {:0000} {exec-a %dszprog port %_por speed %_spe ha on sz -m %file} {} (GSZ1214)
  168.  ZMODEM BATCH-W {:zm2s} {call gfnu} {exec-a %dszprog port %_por speed %_spe sz -w1024 %file} {} (GSZ1214)
  169.  ZMODEM BATCH-W {:zm3s} {call gfnu} {exec-a %dszprog port %_por speed %_spe sz -w4096 %file} {} (GSZ1214)
  170.  ZMODEM BATCH-Z {:zm4s} {call gfnu} {exec-a %dszprog port %_por speed %_spe sz -MZ %file} {} (GSZ1214)
  171.  YMODEM BATCH   {:ym1s} {call gfnu} {exec-a %dszprog port %_por speed %_spe sb -k %file} {} (GSZ1214)
  172.  YMODEM BATCH-G {:0000} {call gfnu} {exec-a %dszprog port %_por speed %_spe sb -k %file} {} (GSZ1214)
  173.  MPT BATCH      {:mp1s} {call gfnu} {exec-a MPT P%_por S%_spe s %file} {} (MPT110)
  174.  PUMA BATCH     {:pm1s} {call gfnu} {exec-a PUMA P%_por S%_spe s %file} {} (PUMA100)
  175.  BIMODEM BATCH  {:bims} {exec-a BIMOD} {} (BIMOD124)
  176.  HS/LINK BATCH  {:hsls} {call gfnu} {exec-a HSLINK -NV -p%_por %file} {} (HSLK11B7)
  177.  XMODEM 1K-INT  {:xk1s} {call gfnu} {sxmo-ka %file} {}
  178.  XMODEM 1K      {:0000} {call gfnu} {exec-a %dszprog port %_por speed %_spe sx -k %file} {} (GSZ1214)
  179.  XMODEM 1K CSUM {:0000} {call gfnu} {exec-a %dszprog port %_por speed %_spe sx -k %file} {} (GSZ1214)
  180.  XMODEM 1K-G    {:0000} {call gfnu} {exec-a %dszprog port %_por speed %_spe sx -k %file} {} (GSZ1214)
  181.  XMODEM CRC-INT {:xc1s} {call gfnu} {sxmo-a %file} {}
  182.  XMODEM CRC     {:0000} {call gfnu} {exec-a %dszprog port %_por speed %_spe sx %file} {} (GSZ1214)
  183.  XMODEM CSUM-INT{:xs1s} {call gfnu} {sxmo-a %file} {}
  184.  XMODEM CSUM    {:0000} {call gfnu} {exec-a %dszprog port %_por speed %_spe sx %file} {} (GSZ1214)
  185.  XMODEM CRC-G   {:0000} {call gfnu} {exec-a %dszprog port %_por speed %_spe sx %file} {} (GSZ1214)
  186.  HYPERP         {:hp1s} {call gfnu} {exec-a HYPERP Port:%_por Baud:%_spe Display:OFF Checktype:CRC Overwrite:On send %file} {} (HYPERP)
  187.  JMODEM         {:jm1s} {call gfnu} {exec-a JMODEM S%_por %file} {} (JMOD305B)
  188.  KERMIT         {:km1s} {call gfnu} {exec-a PCKERMIT -L COM%_por -B %_spe -S %file} {} (PCKERM21)
  189.  SEALINK        {:sl1s} {call gfnu} {exec-a CLINK12 T /P%_por /B%_spe %file} {} (CLINK34)
  190.  MEGALINK       {:0000} {call gfnu} {exec-a MLINK16 PORT %_por SPEED %_spe SM %file} {} (MLINK16)
  191.  JMODEM         {:jm1s} {call gfnu} {exec-a JMODEM S%_por %file} {} (JMOD305B)
  192.  ZMAX           {:zx1s} {call gfnu} {exec-a ZMAX -B %_spe -P %_por -F %file} {} (ZMAX100B)
  193.  TMODEM         {:0000} {call gfnu} {exec-a TMODEM -B%_spe -P%_por -F %file} {} (TMOD710)
  194.  ZMODEM BATCH   {:0000} {call gfnu} {exec-a PCZ %_por %_spe sz %file} {} (PCZ30390)
  195.  YMODEM BATCH   {:0000} {call gfnu} {exec-a PCZ %_por %_spe sy %file} {} (PCZ30390)
  196.  XMODEM 1K      {:0000} {call gfnu} {exec-a PCZ %_por %_spe s1 %file} {} (PCZ30390)
  197.  XMODEM         {:0000} {call gfnu} {exec-a PCZ %_por %_spe sx %file} {} (PCZ30390)
  198.  SEALINK        {:0000} {call gfnu} {exec-a PCZ %_por %_spe ss %file} {} (PCZ30390)
  199.  LYNX           {:0000} {call gfnu} {exec-a LYNX S /%_spe /%_por %file} {} (LYNX302)
  200.  SUPER8K BATCH  {:0000} {exec-a SUPERK P%_por S%_spe SSB F %file} {} (SK&J1202)
  201.  K9XMODEM BATCH {:0000} {exec-a SUPERK P%_por S%_spe SKB F %file} {} (SK&J1202)
  202.  WXMODEM        {:0000} {call gfnu} {exec-a SUPERK P%_por S%_spe SW F %file} {} (SK&J1202)
  203.  CMODEM         {:0000} {call gfnu} {exec-a SUPERK P%_por S%_spe SH F %file} {} (SK&J1202)
  204.  WXMODEM        {:0000} {call gfnu} {exec-a WXFER port %_por speed %_spe -s %file} {} (WXFER0417)
  205.  TRANSLINK      {:0000} {call gfnu} {exec-a TRLINK -B%_spe -P%_por S} {} (TRLNK180)
  206.  PUNTER         {:0000} {call gfnu} {exec-a PUNTER /S /M /Z255 /P%_por /B%_spe %file} {} (PNTR211)
  207.  CMODEM         {:0000} {call gfnu} {exec RCMODEM /p=%_por/tx/b=%_spe/shh/s=c %file} {} (CMODEM26)
  208.  IMODEM         {:0000} {call gfnu} {exec-a QMXFER -L COM%_por -B %_spe -P I -S -F %file} {} (QMXFER)
  209.  CIS BPlus      {:0000} {call gfnu} {exec OZBEXT /c%_por /f%uldir /n} {} (OZBEXT)
  210.  {:gfnu} {setv file,%uldir\} {input file,Enter filename to UPLOAD} {return}
  211.  ASCII Upload
  212.  {:ala} {ascii %uldir\} {}
  213.  Byte Brother's Power Node (Need BBPOWERI and DSZ1214)
  214.  {:alj} {exec-a POWERN} {}
  215.  Area Code Location (Need AREACODE and LIST8)
  216.  {:ale} {call acq1} {exec ac %acqa > areacode.txt} {exec list areacode.txt} {exec del areacode.txt} {}
  217.  {:acq1} {setv acqa,} {input acqa,Enter Area Code you are calling} {return}
  218.  Zone Lookup (Need ZUM92 and LIST8)
  219.  {:alq} {call alq1} {exec zum92 %prfxa > zum.txt} {exec list zum.txt} {exec del zum.txt} {}
  220.  {:alq1} {setv prfxa,} {input prfxa,Enter Prefix calling from} {return}
  221.  Zone Pricing (Need ZUM92)
  222.  {:alw} {call alqa} {exec zum92 %prfx1 %prfx2} {}
  223.   {:alqa} {setv prfx1,} {input prfx1,Enter Prefix calling from} {setv prfx2,} {input prfx2,Enter Prefix calling to} {return}
  224.  Comlog (Need COMLOG)
  225.  {:alf} {exec-w COMLOG} {}
  226.  Quote Editor and ASCii Uploader (Need TRUNC12 and PE2)
  227.  Five Easy Steps to Quote A Message:
  228.  1) Hit <F9> to capture the screen you wish to edit.
  229.  2) Make sure the BBS is in position to receive your typing.
  230.  3) Hit <F10> to edit the captured quote using PE2's functions.
  231.  4) Hit <F3> and <ENTER> to exit PE2 and to upload the finished quote.
  232.  5) You may now type out your reply to complete the rest of your message.
  233.  {:nf9}  {screen y,trunc.scn} {}
  234.  {:nf0}  {exec pe2 trunc.scn} {exec trunc.exe trunc.scn trunc.out} {asciiup trunc.out,:} {send  |} {exec del trunc.scn} {}
  235.  NOTE: The TRUNC executable must be followed by the COMMO screen image, then
  236.        one space, and then the output file.  TRUNC is VERY unforgiving about
  237.        deviating from the above.  The pacing character ":" is assumed below.
  238.  Handy Macros
  239.  {:nf2} {exec list key.txt} {} (Need LIST8)
  240.  {:nf3} {send JONATHAN DEER|} {} (First and Last Name)
  241.  {:nf4} {send %_pas|} {}
  242.  {:nf5} {send 000-000-0000|} {} (Voice Phone Number)
  243.  {:nf6} {send 000-000-0000|} {} (Data Phone Number)
  244.  {:nf7} {send 00-00-00|} {} (Birthdate)
  245.  {:nf8} {send CITY, STATE|} {} (City, State)
  246.  {:sf1} {}
  247.  {:sf2} {}
  248.  {:sf3} {}
  249.  {:sf4} {}
  250.  {:sf5} {exec trim commo.log 16} {} (Need PNS52)
  251.  {:sf6} {exec list commo.log /e} {} (Need LIST8)
  252.  {:sf7} {exec list commo.scr /e} {} (Need LIST8)
  253.  {:sf8} {exec list commo.fon} {} (Need LIST8)
  254.  {:sf9} {exec-w hdir %dldir} {} (Need HDIR201)
  255.  {:sf0} {exec list %_cap /e} {} (Need LIST8)
  256.                          Autologon Macros for Popular BBSs
  257.  WildCat BBS
  258.  {:wcb} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  259.  {:wc0} {golo wca,esc} {golo wcc,[N]onstop} {golo wcd,Last Name} {golo wce,correctly?} {golo wcf,[Y]} {look First Name} {send JONATHAN|} (First Name)
  260.  {:wc1} {golo wcg,Last Name} {golo wch,correctly?} {golo wci,Are you JONATHAN DEER} (First and Last Name) {look Password} {send %_pas|}
  261.  {:wc2} {golo wcj,birth date} {golo wck,phone number} {golo wcl,correctly?} {golo wcm,Special Bulletin} {golo wcn,[N]onstop} {golo wco,to quit:} {golo wcp,Like To View} {golo wcq,Like To Go To The Bulletin} {golo wcr,Bulletin Menu? [y/n]}
  262.         {golo wcs,continue anyway [y/n]?} {golo wct,[ENTER] to continue} {golo wcu,NEW Bulletins? [Y]} {golo wcv,main menu} {golo wcw,Command >>} {look zzzzzzz}
  263.  {:wc3} {}
  264.  {:wca} {send ^[^[} {goto wc0}
  265.  {:wcc} {send s|} {goto wc0}
  266.  {:wcd} {send |} {goto wc0}
  267.  {:wce} {pause 1} {send n|} {goto wc0}
  268.  {:wcf} {send n} {goto wc0}
  269.  {:wcg} {send DEER|} {goto wc1} (Last Name)
  270.  {:wch} {pause 1} {send n|} {goto wc0}
  271.  {:wci} {send Y|} {goto wc1}
  272.  {:wcj} {send 000000|} {send Y|} {goto wc2} (Birthdate)
  273.  {:wck} {send 0000000000|} {send Y|} {goto wc2} (Phone Number)
  274.  {:wcl} {send n|} {goto wc2}
  275.  {:wcm} {send |} {goto wc2}
  276.  {:wcn} {send |} {goto wc2}
  277.  {:wco} {send |} {goto wc2}
  278.  {:wcp} {send n} {goto wc2}
  279.  {:wcq} {send n} {goto wc2}
  280.  {:wcr} {send n} {goto wc2}
  281.  {:wcs} {send y|} {goto wc2} (Impending Event Prompt)
  282.  {:wct} {send |} {goto wc2}
  283.  {:wcu} {send n} {goto wc2}
  284.  {:wcv} {goto wc3}
  285.  {:wcw} {goto wc3}
  286.  PCBoard BBS
  287.  {:pcb} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  288.  {:pc0} {golo pca,(Enter)=no?} {golo pcc,(enter=no)?} {golo pcd,graphics [C/R]=no?} {golo pce,esc} {look name?} {send JONATHAN DEER|} (First and Last Name)
  289.  {:pc1} {golo pcf,correct?} {look password} {send ~%_pas|}
  290.  {:pc2} {golo pcg,More?} {golo pch,continue?} {golo pci,=yes?} {golo pcj,=yes)?} {golo pck,(H)elp, (Enter)=More?} {golo pcl,(Enter)='S'?} {golo pcm,Main Board - Your Command} {golo pcn,main board command} {golo pco,Main Board (0) Command?}
  291.         {golo pcp,Main Board - Your Main Menu Command} {golo pcq,Conference Command} {golo pcr,Main Board] Command} {look zzzzzzz}
  292.  {:pc3} {}
  293.  {:pca} {send Y|} {goto pc0} (Graphics Prompt)
  294.  {:pcc} {send Y|} {goto pc0} (Graphics Prompt)
  295.  {:pcd} {send Y|} {goto pc0} (Graphics Prompt)
  296.  {:pce} {send ^[^[} {goto pc0}
  297.  {:pcf} {send Y|} {goto pc1}
  298.  {:pcg} {send n|} {goto pc2}
  299.  {:pch} {send |} {goto pc2}
  300.  {:pci} {send n|} {goto pc2}
  301.  {:pcj} {send n|} {goto pc2}
  302.  {:pck} {send n|} {goto pc2}
  303.  {:pcl} {send |} {goto pc2}
  304.  {:pcm} {goto pc3}
  305.  {:pcn} {goto pc3}
  306.  {:pco} {goto pc3}
  307.  {:pcp} {goto pc3}
  308.  {:pcq} {goto pc3}
  309.  {:pcr} {goto pc3}
  310.  ProLogon
  311.  {:prl} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  312.  {:pr0} {golo pra,(Enter)=no?} {golo prc,esc} {look name?} {send JONATHAN DEER|~%_pas|} (First and Last Name)
  313.  {:pr1} {golo prd,(NS)non-stop} {golo pre,continue} {golo prf,personal mail:} {look main board} {}
  314.  {:pra} {send Y|} {goto pr0}
  315.  {:prc} {send ^[^[} {goto pr0}
  316.  {:prd} {send N|} {goto pr1}
  317.  {:pre} {send |} {goto pr1}
  318.  {:prf} {send |} {goto N|}
  319.  Phoenix RCS
  320.  {:phx} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  321.  {:ph0} {golo pha,esc} {golo phb,continue} {golo phc,Graphics [y/N]} {golo phd,<N>onStop} {golo phe,First Name?} {golo phf,correct [Y/n]} {golo phg,try again} {look Password:} {send %_pas|}
  322.  {:ph1} {golo phh,continue} {golo phi,anyway [Y/n]} {golo phj,<N>onstop} {look Main Menu} {}
  323.  {:pha} {send ^[^[} {goto ph0}
  324.  {:phb} {send |} {goto ph0}
  325.  {:phc} {send Y|} {goto ph0} (Graphics Prompt)
  326.  {:phd} {send |} {goto ph0}
  327.  {:phe} {send JONATHAN DEER|} {goto ph0} (First and Last Name)
  328.  {:phf} {send |} {goto ph0}
  329.  {:phg} {goto ph0}
  330.  {:phh} {send |} {goto ph1}
  331.  {:phi} {send |} {goto ph1}
  332.  {:phj} {send |} {goto ph1}
  333.  WWIV BBS
  334.  {:ww4} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  335.  {:ww0} {golo wwa,Graphics?} {golo wwb,displayed (Y/N)?} {golo wwc,pause} {golo wwd,User ID/#} {golo wwe,Name:} {golo wwf,your name} {golo wwg,NN:} {look zzzzzzz}
  336.  {:ww1} {golo wwh,-*-} {golo wwi,pause} {golo wwj,number,q,?} {golo wwk,[Q] to continue:} {golo wwl,Yes or No ?} {golo wwm,auto-message?} {golo wwn,new posts?} {golo wwo,mail now?} {golo wwp,Which Bulletin} {golo wwq,[SMACK ANY KEY]}
  337.         {golo wwr,Change password?} {golo wws,last called?} {golo wwt,Q=Quit >} {golo wwu,[1]} {golo wwv,<1>} {look zzzzzzz}
  338.  {:ww2} {}
  339.  {:wwa} {send Y} {goto ww0} (Graphics Prompt)
  340.  {:wwb} {send Y} {goto ww0} (Graphics Prompt)
  341.  {:wwc} {send |} {goto ww0}
  342.  {:wwd} {send JONATHAN DEER|~%_pas|~0000|} {goto ww1} (First and Last Name;Last Four of Phone Number)
  343.  {:wwe} {send JONATHAN DEER|~%_pas|~0000|} {goto ww1} (First and Last Name;Last Four of Phone Number)
  344.  {:wwf} {send JONATHAN DEER|~%_pas|~0000|} {goto ww1} (First and Last Name;Last Four of Phone Number)
  345.  {:wwg} {send JONATHAN DEER|~%_pas|~0000|} {goto ww1} (First and Last Name;Last Four of Phone Number)
  346.  {:wwh} {send |} {goto ww1}
  347.  {:wwi} {send |} {goto ww1}
  348.  {:wwj} {send q} {goto ww1}
  349.  {:wwk} {send q} {goto ww1}
  350.  {:wwl} {send n} {goto ww1}
  351.  {:wwm} {send n} {goto ww1}
  352.  {:wwn} {send n} {goto ww1}
  353.  {:wwo} {send n} {goto ww1}
  354.  {:wwp} {send q} {goto ww1}
  355.  {:wwq} {send |} {goto ww1}
  356.  {:wwr} {send n} {goto ww1}
  357.  {:wws} {send n} {goto ww1}
  358.  {:wwt} {send q} {goto ww1}
  359.  {:wwu} {goto ww2}
  360.  {:wwv} {goto ww2}
  361.  Searchlight BBS
  362.  {:slb} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  363.  {:sl0} {golo sla,esc} {golo slc,Disconnect / Hang Up} {golo sld,[M]onochrome} {golo sle,(Y/N)?} {golo slf,-- more --} {look type new} {send JONATHAN DEER|~%_pas|} (First and Last Name)
  364.  {:sl1} {golo slg,(Enter to Quit)} {golo slh,[RETURN]:} {golo sli,Chatting} {golo slj,summary} {golo slk,< more >} {golo sll,ENTER ]} {golo slm,-- more --} {golo sln,Space for more} {golo slo,Kill  Quit} {golo slp,Command:} {golo slq,User:}
  365.         {look zzzzzzz}
  366.  {:sl2} {}
  367.  {:sla} {send ^[^[} {goto sl0}
  368.  {:slc} {send 1} {goto sl0}
  369.  {:sld} {send C} {goto sl0} (Graphics Prompt)
  370.  {:sle} {send Y} {goto sl0}
  371.  {:slf} {send |} {goto sl0}
  372.  {:slg} {send |||} {goto sl1}
  373.  {:slh} {send |} {goto sl1}
  374.  {:sli} {send n|} {goto sl1}
  375.  {:slj} {send ^C} {goto sl1}
  376.  {:slk} {send |} {goto sl1}
  377.  {:sll} {send |} {goto sl1}
  378.  {:slm} {send |} {goto sl1}
  379.  {:sln} {send |} {goto sl1}
  380.  {:slo} {send q} {goto sl1}
  381.  {:slp} {goto sl2}
  382.  {:slq} {goto sl2}
  383.  Quick BBS
  384.  {:qbb} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  385.  {:qb0} {golo qba,esc} {golo qbc,name?} {look Password:} {send %_pas|}
  386.  {:qb1} {golo qbd,to continue} {golo qbe,Stop)} {golo qbf,[Y]/N/C} {golo qbg,<N>o} {golo qbh,Press [ENTER]} {golo qbi,Press <ENTER>} {golo qbj,Messages Now [Y/n]} {golo qbk,Main Menu} {golo qbl,Wish} {golo qbm,Your Command} {golo qbn,Main Command}
  387.         {golo qbo,Press the key NOW} {golo qbp,Unit Awaits Order} {look zzzzzzz}
  388.  {:qb2} {}
  389.  {:qba} {send ^[^[} {goto qb0}
  390.  {:qbc} {send JONATHAN DEER|} {goto qb0} (First and Last Name)
  391.  {:qbd} {send |} {goto qb1}
  392.  {:qbe} {send S} {goto qb1}
  393.  {:qbf} {send N} {goto qb1}
  394.  {:qbg} {send N} {goto qb1}
  395.  {:qbh} {send |} {goto qb1}
  396.  {:qbi} {send |} {goto qb1}
  397.  {:qbj} {send n} {goto qb1}
  398.  {:qbk} {goto qb2}
  399.  {:qbl} {goto qb2}
  400.  {:qbm} {goto qb2}
  401.  {:qbn} {goto qb2}
  402.  {:qbo} {goto qb2}
  403.  {:qbp} {goto qb2}
  404.  Remote Access
  405.  {:rma} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  406.  {:rm0} {golo rmb,esc} {golo rmc,name} {golo rmd,It's...} {golo rme,please...} {golo rmf,sign in...} {look password} {send ~%_pas|}
  407.  {:rm1} {golo rmg,try again} {golo rmh,to continue} {golo rmi,Y/n} {golo rmj,<RETURN>]} {golo rmk,Press Enter} {golo rml,Press [Return]} {golo rmm,[=]nonstop} {golo rmn,Section of the Main} (SW\SE Connection Bypass)
  408.         {golo rmo,Main Bridge:} (Galactic Scholars Menu) {golo rmp,Main Menu} {golo rmq,Main Command} {golo rmr,Select:} {golo rms,remaining=>} {golo rmt,Min left :} {golo rmu,Enter your selection} {look zzzzzzz}
  409.  {:rm2} {}
  410.  {:rmb} {send ^[^[} {goto rm0}
  411.  {:rmc} {pause 1} {send JONATHAN DEER|} {goto rm0} (First and Last Name)
  412.  {:rmd} {pause 1} {send JONATHAN DEER|} {goto rm0} (First and Last Name)
  413.  {:rme} {pause 1} {send JONATHAN DEER|} {goto rm0} (First and Last Name)
  414.  {:rmf} {pause 1} {send JONATHAN DEER|} {goto rm0} (First and Last Name)
  415.  {:rmg} {goto rm0}
  416.  {:rmh} {send |} {goto rm1}
  417.  {:rmi} {send n} {goto rm1}
  418.  {:rmj} {send |} {goto rm1}
  419.  {:rmk} {send |} {goto rm1}
  420.  {:rml} {send |} {goto rm1}
  421.  {:rmm} {send n} {goto rm1}
  422.  {:rmn} {goto rm1}
  423.  {:rmo} {goto rm2}
  424.  {:rmp} {goto rm2}
  425.  {:rmq} {goto rm2}
  426.  {:rmr} {goto rm2}
  427.  {:rms} {goto rm2}
  428.  {:rmt} {goto rm2}
  429.  {:rmu} {goto rm2}
  430.  Opus BBS
  431.  {:ops} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  432.  {:op1} {golo opa,esc} {golo opb,name:} {golo opc,thy name here:} {look zzzzzzz}
  433.  {:op2} {golo opd,continue} {golo ope,[y/n]} {golo opf,More [Y,n,=]?} {golo opg,(y/N)} {golo oph,MAIN:} {golo opi,Main Menu:} {look zzzzzzz}
  434.  {:op3} {}
  435.  {:opa} {send ^[^[} {goto op1}
  436.  {:opb} {send JONATHAN DEER|~|~%_pas|} {goto op2} (First and Last Name)
  437.  {:opc} {send JONATHAN DEER|~|~%_pas|} {goto op2} (First and Last Name)
  438.  {:opd} {send |} {goto op2}
  439.  {:ope} {send n|} {goto op2}
  440.  {:opf} {send n|} {goto op2}
  441.  {:opg} {send |} {goto op2}
  442.  {:oph} {goto op3}
  443.  {:opi} {goto op3}
  444.  RBBS
  445.  {:rbb} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  446.  {:rb0} {golo rba,esc} {golo rbc,continue} {golo rbd,[Y],N,C,A} {golo rbe,name?} {look echo)?} {send %_pas|}
  447.  {:rb1} {golo rbf,Continue} {golo rbg,[Y],N,C,A} {golo rbh,none)?} {golo rbi,'Last Read' (Enter)=yes?} {golo rbj,([Y],N)} {golo rbk,J)ump?} {golo rbl,More [Y]es} {golo rbm,MAIN command} {golo rbn,Main Board Command} {golo rbo,Your command} {look zzzzzzz}
  448.  {:rb2} {}
  449.  {:rba} {send ^[^[} {goto rb0}
  450.  {:rbc} {send |} {goto rb0}
  451.  {:rbd} {send N} {goto rb0}
  452.  {:rbe} {send JONATHAN DEER|} {goto rb0} (First and Last Name)
  453.  {:rbf} {send |} {goto rb1}
  454.  {:rbg} {send N} {goto rb1}
  455.  {:rbh} {send |} {goto rb1}
  456.  {:rbi} {send n|} {goto rb1}
  457.  {:rbj} {send n|} {goto rb1}
  458.  {:rbk} {send a|} {goto rb1}
  459.  {:rbl} {send n} {goto rb1}
  460.  {:rbm} {goto rb2}
  461.  {:rbn} {goto rb2}
  462.  {:rbo} {goto rb2}
  463.  BBS-PC
  464.  {:bbs} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  465.  {:bb0} {golo bba,Press [Return]} {golo bbb,name:} {golo bbc,State:} {golo bbd,(Y/N)?} {golo bbe,(Y)/N/NS?} {golo bbf,Main Menu (? for Help):} (No Password for Micromiga) {look password} {send %_pas|}
  466.  {:bb1} {golo bbg,continue...} {golo bbh,(Y)/N/NS?} {golo bbi,[C]ontinue} {golo bbj,Main} {look zzzzzzz}
  467.  {:bb2} {}
  468.  {:bba} {send |} {goto bb0}
  469.  {:bbb} {send JONATHAN DEER|} {goto bb0} (First and Last Name)
  470.  {:bbc} {send CITY, STATE|} {goto bb0} (City and State)
  471.  {:bbd} {send Y|} {goto bb0}
  472.  {:bbe} {send N|} {goto bb0}
  473.  {:bbf} {goto bb2}
  474.  {:bbg} {send |} {goto bb1}
  475.  {:bbh} {send N|} {goto bb1}
  476.  {:bbi} {send C|} {goto bb1}
  477.  {:bbj} {goto bb2}
  478.  TBBS
  479.  {:tbb} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  480.  {:tb0} {golo tba,Full Name?} {golo tbc,First Name?} {golo tbd,Last Name?} {golo tbe,Is this correct?} {look Password:} {send %_pas|}
  481.  {:tb1} {golo tbf,-More-} {golo tbg,Press Any Key} {golo tbh,Bulletins <Y/N>?} {golo tbi,Read Now(y/n)} {look Command:} {}
  482.  {:tba} {send JONATHAN DEER|} {goto tb0} (First and Last Name)
  483.  {:tbc} {send JONATHAN|} {goto tb0} (First Name)
  484.  {:tbd} {send DEER|} {goto tb0} (Last Name)
  485.  {:tbe} {send Y} {goto tb0}
  486.  {:tbf} {send |} {goto tb1}
  487.  {:tbg} {send |} {goto tb1}
  488.  {:tbh} {send N} {goto tb1}
  489.  {:tbi} {send N} {goto tb1}
  490.  EBBS-PC
  491.  {:ebb} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  492.  {:eb0} {golo eba,color / graphics} {golo ebc,new} {golo ebd,name:} {look password} {send %_pas|}
  493.  {:eb1} {golo ebe,<SPACE> to Abort} {golo ebf,Stat's (Y/n)?} {golo ebg,Press Any Key} {golo ebh,*MORE*} {golo ebi,Main Menu} {golo ebj,Enter Command} {look zzzzzzz}
  494.  {:eb2} {}
  495.  {:eba} {send |} {goto eb0}
  496.  {:ebc} {send JONATHAN DEER|} {goto eb0} (First and Last Name)
  497.  {:ebd} {send JONATHAN DEER|} {goto eb0} (First and Last Name)
  498.  {:ebe} {send ^H} {goto eb1}
  499.  {:ebf} {send n} {goto eb1}
  500.  {:ebg} {send |} {goto eb1}
  501.  {:ebh} {send |} {goto eb1}
  502.  {:ebi} {goto eb2}
  503.  {:ebj} {goto eb2}
  504.  Second Sight
  505.  {:sds} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  506.  {:sd0} {golo sda,first name?} {golo sdb,last name?} {look password?} {send ~%_pas|}
  507.  {:sd1} {golo sdc,continue...} {look Command} {}
  508.  {:sda} {send ~JONATHAN|} {goto sd0} (First Name)
  509.  {:sdb} {send ~DEER|} {goto sd0} (Last Name)
  510.  {:sdc} {send |} {goto sd1}
  511.  Teleguard BBS
  512.  {:tlg} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  513.  {:tl0} {golo tla,esc} {golo tlb,color} {golo tlc,A N S I} {golo tld,Ansi?} {golo tle,to continue} {golo tlf,hit a} {golo tlh,Name:} {golo tli,Logon :} {golo tlj,:>} {golo tlk,pause} {golo tll,smash return}
  514.         {look password} {send %_pas|}
  515.  {:tl1} {golo tlm,hit a} {golo tln,phone #:} {golo tlo,to continue} {golo tlp,mail now?} {golo tlq,pause} {golo tlr,Q=Quit} {golo tls,smash return} {golo tlt,Main Menu} {golo tlu,Take Your Pick} {golo tlv,Main:} {look zzzzzzz}
  516.  {:tl2} {}
  517.  {:tla} {send ^[^[} {goto tl0}
  518.  {:tlb} {send y} {goto tl0} (Graphics Prompt)
  519.  {:tlc} {send y} {goto tl0} (Graphics Prompt)
  520.  {:tld} {send y} {goto tl0} (Graphics Prompt)
  521.  {:tle} {send |} {goto tl0}
  522.  {:tlf} {send |} {goto tl0}
  523.  {:tlh} {send JONATHAN DEER|} {goto tl0} (First and Last Name)
  524.  {:tli} {send JONATHAN DEER|} {goto tl0} (First and Last Name)
  525.  {:tlj} {send JONATHAN DEER|} {goto tl0} (First and Last Name)
  526.  {:tlk} {send |} {goto tl0}
  527.  {:tll} {send |} {goto tl0}
  528.  {:tlm} {send |} {goto tl1}
  529.  {:tln} {send ~0000|} {goto tl1} (Last Four of Phone Number)
  530.  {:tlo} {send |} {goto tl1}
  531.  {:tlp} {send n} {goto tl1}
  532.  {:tlq} {send |} {goto tl1}
  533.  {:tlr} {send q|} {goto tl1}
  534.  {:tls} {send |} {goto tl1}
  535.  {:tlt} {goto tl2}
  536.  {:tlu} {goto tl2}
  537.  {:tlv} {goto tl2}
  538.  Maxihost and Megahost
  539.  {:max} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  540.  {:ma0} {golo maa,color?} {golo mab,Name:} {golo mac,correct?} {look Password:} {send %_pas|}
  541.  {:ma1} {golo mad,to continue} {look Command:} {}
  542.  {:maa} {send y} {goto ma0} (Graphics Prompt)
  543.  {:mab} {send JONATHAN DEER|} {goto ma0} (First and Last Name)
  544.  {:mac} {send Y} {goto ma1}
  545.  {:mad} {send |} {goto ma1}
  546.  Virtual BBS
  547.  {:vbb} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  548.  {:vb0} {golo vba,Press [Enter]} {golo vbc,Login} {look Password:} {send ~%_pas|}
  549.  {:vb1} {golo vbd,Auto-Post?} {golo vbe,Q)uit:} {golo vbf,press any key} {golo vbg,What month} {golo vbh,What day} {golo vbi,What year} {golo vbj,Statistics?} {golo vbk,[1]} {look zzzzzzz}
  550.  {:vb2} {}
  551.  {:vba} {send ~|} {goto vb0}
  552.  {:vbc} {send ~JONATHAN DEER|} {goto vb0}
  553.  {:vbd} {send n|} {goto vb1}
  554.  {:vbe} {send q|} {goto vb1}
  555.  {:vbf} {send |} {goto vb1}
  556.  {:vbg} {send 0|} {goto vb1} (Month of Birthdate)
  557.  {:vbh} {send 00|} {goto vb1} (Day of Birthdate)
  558.  {:vbi} {send 0000|} {goto vb1} (Year of Birthdate)
  559.  {:vbj} {send n|} {goto vb1}
  560.  {:vbk} {goto vb2}
  561.  Maximus CBCS
  562.  {:mxm} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  563.  {:mx0} {golo mxa,esc} {golo mxb,name} {look zzzzzzz}
  564.  {:mx1} {golo mxc,ENTER to continue} {golo mxd,bulletin [Y/n]} {golo mxe,check for mail} {golo mxf,(G)oodbye} {golo mxg,Main Menu} {golo mxh,Main:} {look zzzzzzz}
  565.  {:mx2} {}
  566.  {:mxa} {send ^[^[} {goto mx0}
  567.  {:mxb} {send JONATHAN DEER|~|~%_pas|} {goto mx1} (First and Last Name)
  568.  {:mxc} {send |} {goto mx1}
  569.  {:mxd} {send n|} {goto mx1}
  570.  {:mxe} {send n|} {goto mx1}
  571.  {:mxf} {goto mx2}
  572.  {:mxg} {goto mx2}
  573.  {:mxh} {goto mx2}
  574.  Spitfire BBS (Bicycle BBS)
  575.  {:spf} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  576.  {:sp0} {golo spa,GRAPHICS?} {golo spb,name:} {look password:} {send %_pas|}
  577.  {:sp2} {golo spc,[MM-DD-YY]:} {golo spd,< ENTER > to continue} {golo spe,message(s)} {golo spg,Statistics} {golo sph,last check? [y/N]} {look < ENTER > to Main Menu} {send |} {}
  578.  {:spa} {send Y|} {goto sp0} (Graphics Prompt)
  579.  {:spb} {send JONATHAN DEER|} {goto sp0} (First and Last Name)
  580.  {:spc} {send 000000|} {goto sp2} (Birthdate)
  581.  {:spd} {send s|} {goto sp2}
  582.  {:spe} {send n} {goto sp2}
  583.  {:spg} {send n} {goto sp2}
  584.  {:sph} {send n} {goto sp2}
  585.  Kameleon BBS (Starhelm Graystaff)
  586.  {:kam} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  587.  {:ka0} {golo kaa,esc} {golo kab,ANSI) codes?} {golo kac,your Full Name} {golo kad, First Name} {golo kae,right? (Y/N)?} {look password:} {send %_pas|}
  588.  {:ka1} {golo kaf,More?} {golo kag,key to continue} {look Command:} {}
  589.  {:kaa} {send ^[^[} {goto ka0}
  590.  {:kab} {send n} {goto ka0}
  591.  {:kac} {send ~JONATHAN DEER|} {goto ka0} (First and Last Name)
  592.  {:kad} {send ~JONATHAN DEER|} {goto ka0} (First and Last Name)
  593.  {:kae} {send y|} {goto ka0}
  594.  {:kaf} {send n} {goto ka1}
  595.  {:kag} {send |} {goto ka1}
  596.  DCI BBS (Omnibus)
  597.  {:dci} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  598.  {:dc0} {golo dca,Press any key} {golo dcb,*MORE*} {golo dcc,Enter name} {look Password} {send %_pas|}
  599.  {:dc1} {golo dcd,Press any key} {golo dce,*MORE*} {look Enter Command} {}
  600.  {:dca} {send |} {goto dc0}
  601.  {:dcb} {send |} {goto dc0}
  602.  {:dcc} {send JONATHAN DEER|} {goto dc0} (First and Last Name)
  603.  {:dcd} {send |} {goto dc1}
  604.  {:dce} {send |} {goto dc1}
  605.  SuperBBS (Metropolis USA)
  606.  {:sbb} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  607.  {:sb0} {golo sba,echo} {golo sbc,ANSI?} {golo sbd,last name :} {look Password :} {send %_pas|}
  608.  {:sb1} {golo sbe,To Continue} {golo sbf,[Return]} {golo sbg,messages now (Y/n)?} {look Enter your selection:} {}
  609.  {:sba} {send ^[^[} {goto sb0}
  610.  {:sbc} {send n} {goto sb0}
  611.  {:sbd} {send JONATHAN DEER|} {goto sb0} (First and Last Name)
  612.  {:sbe} {send |} {goto sb1}
  613.  {:sbf} {send |} {goto sb1}
  614.  {:sbg} {send n} {goto sb1}
  615.  Auntie (Palladin)
  616.  {:ant} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  617.  {:an0} {golo ana,esc} {golo anb,FIRST Name} {golo anc,LAST Name} {look Password (dots will echo)} {send %_pas|}
  618.  {:an1} {golo and,to continue} {golo ane,to Cancel} {golo anf,<ENTER> to end} {look Main Area Function} {}
  619.  {:ana} {send ^[^[} {goto an0}
  620.  {:anb} {send JONATHAN|} {goto an0} (First Name)
  621.  {:anc} {send DEER|} {goto an0} (Last Name)
  622.  {:and} {send |} {goto an1}
  623.  {:ane} {send ^K} {goto an1}
  624.  {:anf} {send |} {goto an1}
  625.  JBBS (Trader's World)
  626.  {:jbb} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  627.  {:jb0} {golo jba,esc} {golo jbc,lock-on.} {golo jbd,name:} {golo jbe,[Y,n]?} {look password?} {send %_pas|}
  628.  {:jb1} {golo jbf,<ENTER> to continue} {golo jbg,<ENTER> to Quit to Main Menu} {look JBBS Main Menu} {}
  629.  {:jba} {send ^[^[} {goto jb0}
  630.  {:jbc} {send ^[^[} {goto jb0}
  631.  {:jbd} {send JONATHAN DEER|} {goto jb0} (First and Last Name)
  632.  {:jbe} {send |} {goto jb0}
  633.  {:jbf} {send |} {goto jb1}
  634.  {:jbg} {send |} {goto jb1}
  635.  Fido (IEEE [CITY])
  636.  {:fid} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|} {look FIRST name:} {look LAST name:} {look Password:}
  637.  {:fi0} {golo fia,More[c,Y,n]} {golo fib,FIRST name:} {golo fic,LAST name:} {golo fie,[Y,n]:} {look Password:} {send %_pas|}
  638.  {:fi1} {golo fif,More[c,Y,n]} {look Main Section} {}
  639.  {:fia} {send n|} {goto fi0}
  640.  {:fib} {send JONATHAN|} {goto fi0} (First Name)
  641.  {:fic} {send DEER|} {goto fi0} (Last Name)
  642.  {:fie} {send |} {goto fi0}
  643.  {:fif} {send n|} {goto fi1}
  644.  Perspective Data Systems (Cygnus X-1 BBS)
  645.  {:per} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  646.  {:pe0} {golo pea,name?} {look echo)?} {send %_pas|}
  647.  {:pe1} {golo peb,[Return] to continue} {golo pec,[C]ontinue?} {golo ped,[Return]?} {look Main Command} {}
  648.  {:pea} {send JONATHAN DEER|} {goto pe0} (First and Last Name)
  649.  {:peb} {send |} {goto pe1}
  650.  {:pec} {send n} {goto pe1}
  651.  {:ped} {send n} {goto pe1}
  652.  GT Powercom BBS (Catholic Information Network)
  653.  {:gtp} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,n|}
  654.  {:gt0} {golo gta,graphics?} {golo gtb,name:} {look password:} {send %_pas|}
  655.  {:gt1} {golo gtc,More?} {golo gtd,number:} {golo gte,continue} {golo gtf,mail?} {look command} {}
  656.  {:gta} {send ~y|} {goto gt0} (Graphics Prompt)
  657.  {:gtb} {send JONATHAN DEER|~Y|} {goto gt0} (First and Last Name)
  658.  {:gtc} {send n|} {goto gt1}
  659.  {:gtd} {send q|} {goto gt1}
  660.  {:gte} {send |} {goto gt1}
  661.  {:gtf} {send |} {goto gt1}
  662.  Waffle (Hale Telecommunications)
  663.  {:waf} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  664.  {:wa0} {golo waa,NEW:} {look Password:} {send %_pas|}
  665.  {:wa1} {golo wab,[more]} {look (?=help!) ->} {}
  666.  {:waa} {send JONATHAN|} {goto wa0} (First Name)
  667.  {:wab} {send |} {goto wa1}
  668.  RIBBS (Byte Box)
  669.  {:rib} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,60,|}
  670.  {:ri0} {golo ria,esc} {golo ric,Paused} {golo rid,name :} {look password:} {send %_pas|}
  671.  {:ri1} {golo rie,Press any key} {golo rif,Enter to Continue} {golo rig,mail now (Y/n)} {look Command ?} {}
  672.  {:ria} {send ^[} {goto ri0}
  673.  {:ric} {send |} {goto ri0}
  674.  {:rid} {send JONATHAN DEER|} {goto ri0} (First and Last Name)
  675.  {:rie} {send |} {goto ri1}
  676.  {:rif} {send |} {goto ri1}
  677.  {:rig} {send n} {goto ri1}
  678.  SupraCom System (Music Store)
  679.  {:scs} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  680.  {:sc0} {golo sca,esc} {golo scb,graphics? [y/N]} {golo scc,: more :} {golo scd,name/#:} {look password:} {send %_pas|}
  681.  {:sc1} {golo sce,: more :} {golo scf,[Return] to continue} {look <Main menu>} {}
  682.  {:sca} {send ^[} {goto sc0}
  683.  {:scb} {send n} {goto sc0}
  684.  {:scc} {send |} {goto sc0}
  685.  {:scd} {send JONATHAN DEER|} {goto sc0} (First and Last Name)
  686.  {:sce} {send |} {goto sc1}
  687.  {:scf} {send |} {goto sc1}
  688.  FoReM ST (Computer Plus BBS)
  689.  {:frm} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  690.  {:fr0} {golo fra,Hit Return} {golo frb,Vidtex} {golo frc,User} {look Password} {send %_pas|}
  691.  {:fr1} {golo frd,Select (Q=Exit)} {look Plus} {}
  692.  {:fra} {send |} {goto fr0}
  693.  {:frb} {send 1|} {goto fr0}
  694.  {:frc} {send JONATHAN DEER|} {goto fr0} (First and Last Name)
  695.  {:frd} {send q|} {goto fr1}
  696.  Major BBS (Marine Advisor)
  697.  {:maj} {exec del c:\commo\commo.cap} {clear} {setl 60,hng,6,|}
  698.  {:ma2} {look "NEW"} {send USER ID|} (User ID) {look password:} {send %_pas|}
  699.  {:ma3} {golo mae,hit any key} {look terminate session} {}
  700.  {:mae} {send |} {goto ma3}
  701.                     Full Screen Editor Key Support
  702.   The following keys are used by full screen editors such as Visual Editor in
  703.   ProDoor, PCBoard's full screen editor, ANSIED in RBBS and others.  They may
  704.   be changed to suit your own needs (all keys do not work with all editors --
  705.   capture the editor help info on the BBS).  See Appendix D in COMMO.DOC for
  706.   details on character representation.
  707.   Note that the left arrow function (^S) is also the XOFF character. This may
  708.   cause a problem on some systems.  If pressing the left arrow seems to hang
  709.   the remote, press Ctrl-Q and change the "lfa" macro to:
  710.          {send ^[[D} {}  or  {send ^@K} {}
  711.   PgUp and PgDn are normally used for uploading and downloading.  To use them
  712.   for editing, change the key-labels in the menus above (press F6 in the
  713.   Internal Editor to see them).
  714.   Macro                   Key             Function
  715.   {:hom} {send ^W} {}     Home            Start of line
  716.   {:end} {send ^P} {}     End             End of line
  717.   {:pgu} {send ^R} {}     PgUp            Page up
  718.   {:pgd} {send ^C} {}     PgDn            Page down
  719.   {:upa} {send ^E} {}     Up Arrow        Cursor up
  720.   {:dna} {send ^X} {}     Down Arrow      Cursor down
  721.   {:lfa} {send ^S} {}     Left Arrow      Cursor left
  722.   {:rta} {send ^D} {}     Right Arrow     Cursor right
  723.   {:cla} {send ^A} {}     ^Left Arrow     Word left
  724.   {:cra} {send ^F} {}     ^Right Arrow    Word right
  725.   {:ins} {send ^V} {}     Insert          Toggle insert mode
  726.   {:del} {send ^G} {}     Delete          Delete character
  727.   {:cnd} {send ^K} {}     ^End            Delete to end of line
  728.  ******************************************************************************
  729.  IMPORTANT--> This is COMMO.MAC of COMMOU5O.  It contains autologon and
  730.               protocol macros for COMMO52.  Updated 4-12-92.
  731.               Courtesy of:  Richard Grant ArtWorld BBS! (619)462-6887
  732.  ******************************************************************************
  733.